home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d3.d64 / double vowels (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  16KB  |  477 lines
  1. 100 PRINT"[147]":POKE53248+21,0:POKE53248+23,0:POKE53248+29,0:POKE808,225
  2. 110 Q1$=""
  3. 120 Q2$=""
  4. 130 Q3$=""
  5. 140 PRINT"[147]      P H O N C E N T R A T I O N "
  6. 150 REM
  7. 160 REM BY MARIO VELA-MARTINEZ
  8. 170 REM
  9. 180 REM ASSISTANCE BY:
  10. 190 REM CARLOS VELA-MARTINEZ &
  11. 200 REM RAYMOND PRACHUN
  12. 210 REM
  13. 220 REM  1018 LAVENDER CRT.
  14. 230 REM  OSHAWA, ONTARIO (CANADA)
  15. 240 REM  L1G 3H1
  16. 250 REM
  17. 260 REM
  18. 270 DIMWD$(14),L1(14),C1$(124),C2(124):DIMB1(14):DIMS4(14),EE$(7)
  19. 280 DIMB2(14):DIMSP(14):DIMCH(36):MA=2
  20. 290 DIMI1(30),I2(30),I3(30),I4(30),I5(30):DIMW1(20),W2(20),W3(20):RESTORE
  21. 300 DIMS1(14),S2(14),S3(14),Y1$(15),Y2$(15)
  22. 310 MA=2:PRINTCHR$(8):GOSUB320:GOTO400
  23. 320 RESTORE
  24. 330 FORI=1TO14:READA$:READA:C1$(I)=A$:C2(I)=A:NEXTI
  25. 340 REM
  26. 350 REM
  27. 360 REM
  28. 370 RETURN
  29. 380 CL=CL+2:POKE53280,CL:POKE53281,CL+2
  30. 390 RETURN
  31. 400 GOSUB3150
  32. 410 FORI=1TO27:READA,B,C,D,E:I1(I)=A:I2(I)=B:I3(I)=C:I4(I)=D:I5(I)=E:NEXTI
  33. 420 FORI=1TO14:READA,B,C:W1(I)=A:W2(I)=B:W3(I)=C:NEXTI
  34. 430 GOSUB2420
  35. 440 REM
  36. 450 GOSUB3900
  37. 460 POKEV+21,0:PRINT"[147]":POKE53280,6:POKE53281,0
  38. 470 G1$="[159] [213][195][195][201][160][213][195][195][201][160][213][195][195][201] [213][195][195][201][160][213][195][195][201]"
  39. 480 G2$="[159] [194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194]"
  40. 490 G3$="[159] [202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203]"
  41. 500 FORI=1TO3:PRINTG1$:PRINTG2$:PRINTG3$:PRINT"":NEXT
  42. 510 PRINT"[154]    [146]"
  43. 520 PRINT"    [146]"
  44. 530 PRINT"    [146][159]"
  45. 540 FORT=1784TO1810:POKET,160:POKET+54272,14:NEXT
  46. 550 FORT=1770TO1024STEP-40:POKET,160:POKET+54272,14:NEXT
  47. 560 FORT=1051TO1063:POKET,160:POKET+54272,14:NEXT
  48. 570 FORT=1063TO1743STEP40:POKET,160:POKE54272+T,14:NEXT
  49. 580 FORT=1783TO1771STEP-1:POKET,160:POKET+54272,14:NEXT
  50. 590 FORT=1811TO1823:POKET,160:POKET+54272,14:NEXTT
  51. 600 G4$=""
  52. 610 PRINT"";G4$;"WORD LIST":D1=30
  53. 620 PRINT"";G4$;"[157]1. ";WD$(1):XY=1:GOSUB700
  54. 630 PRINT"";G4$;"[157]2. ";WD$(2):XY=2:GOSUB700
  55. 640 PRINT"";G4$;"[157]3. ";WD$(3):XY=3:GOSUB700
  56. 650 PRINT"";G4$;"[157]4. ";WD$(4):XY=4:GOSUB700
  57. 660 PRINT"";G4$;"[157]5. ";WD$(5):XY=5:GOSUB700
  58. 670 PRINT"";G4$;"[157]6. ";WD$(6):XY=6:GOSUB700
  59. 680 PRINT"";G4$;"[157]7. ";WD$(7):XY=7:GOSUB700
  60. 690 GOTO1120
  61. 700 D=L1(XY):PRINT"[145]";TAB(D1+D);"--":RETURN
  62. 710 RESTORE
  63. 720 PRINTQ3$"            ONE MOMENT PLEASE";
  64. 730 FORI=1TO36:CH(I)=0:NEXT
  65. 740 FORT=1TO7
  66. 750 A=INT(RND(1)*14+1)
  67. 760 IFCH(A)=50THEN750
  68. 770 IFC1$(A)=""THEN750
  69. 780 WD$(T)=C1$(A):WD$(T+7)=C1$(A)
  70. 790 IFWD$(T)=""THEN750
  71. 800 IFWD$(T+7)=""THEN750
  72. 810 L1(T)=C2(A):L1(T+7)=C2(A)
  73. 820 CH(A)=50
  74. 830 NEXTT
  75. 840 GOSUB890:RETURN
  76. 850 DATA"GREEN",3,"STREET",4,"SHEEP",3,"DEEP",2,"PEEP",2,"WEEPING",2,"ROOSTER",2
  77. 860 DATA"SPOON",3,"SCHOOL",4,"QUEEN",3,"MOON",2,"BROOM",3,"COOL",2,"BALLOON",5
  78. 870 REM
  79. 880 REM
  80. 890 REM
  81. 900 FORI=1TO14
  82. 910 F=0:IS=INT(RND(1)*14+1)
  83. 920 F=F+1:IFSP(F)=ISTHEN910
  84. 930 IFF=14THEN950
  85. 940 GOTO920
  86. 950 F=0
  87. 960 IFIS=1THENS1(I)=1106:S2(I)=49:S3(I)=48:S4(I)=10:B1(I)=81:B2(I)=36
  88. 970 IFIS=2THENS1(I)=1111:S2(I)=49:S3(I)=49:S4(I)=11:B1(I)=81:B2(I)=77
  89. 980 IFIS=3THENS1(I)=1116:S2(I)=49:S3(I)=50:S4(I)=12:B1(I)=81:B2(I)=116
  90. 990 IFIS=4THENS1(I)=1121:S2(I)=49:S3(I)=51:S4(I)=13:B1(I)=81:B2(I)=155
  91. 1000 IFIS=5THENS1(I)=1126:S2(I)=49:S3(I)=52:S4(I)=14:B1(I)=81:B2(I)=195
  92. 1010 IFIS=6THENS1(I)=1346:S2(I)=49:S3(I)=53:S4(I)=15:B1(I)=129:B2(I)=36
  93. 1020 IFIS=7THENS1(I)=1351:S2(I)=49:S3(I)=54:S4(I)=16:B1(I)=129:B2(I)=77
  94. 1030 IFIS=8THENS1(I)=1361:S2(I)=49:S3(I)=55:S4(I)=17:B1(I)=129:B2(I)=155
  95. 1040 IFIS=9THENS1(I)=1366:S2(I)=49:S3(I)=56:S4(I)=18:B1(I)=129:B2(I)=195
  96. 1050 IFIS=10THENS1(I)=1586:S2(I)=49:S3(I)=57:S4(I)=19:B1(I)=177:B2(I)=36
  97. 1060 IFIS=11THENS1(I)=1591:S2(I)=50:S3(I)=48:S4(I)=20:B1(I)=177:B2(I)=77
  98. 1070 IFIS=12THENS1(I)=1596:S2(I)=50:S3(I)=49:S4(I)=21:B1(I)=177:B2(I)=116
  99. 1080 IFIS=13THENS1(I)=1601:S2(I)=50:S3(I)=50:S4(I)=22:B1(I)=177:B2(I)=155
  100. 1090 IFIS=14THENS1(I)=1606:S2(I)=50:S3(I)=51:S4(I)=23:B1(I)=177:B2(I)=195
  101. 1100 SP(I)=IS
  102. 1110 NEXT:RETURN
  103. 1120 FORI=1TO14
  104. 1130 POKES1(I),S2(I):POKE54272+S1(I),1:POKES1(I)+1,S3(I):POKE54272+S1(I)+1,1
  105. 1140 NEXTI:GOSUB4100:GOTO1490
  106. 1150 A$=""
  107. 1160 PRINTQ1$;"                                       "
  108. 1170 PRINTQ1$;ZZ$(MA);" ";U$
  109. 1180 A$=""
  110. 1190 GETB$:IFB$=""THEN1190
  111. 1200 IFB$="[133]"THEN2410
  112. 1210 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  113. 1220 IFB$<>CHR$(I)THENJW=JW+1
  114. 1230 NEXTI:IFJW=10THEN1190
  115. 1240 X1=JX-48:IFX1<0ORX1>2THEN1190
  116. 1250 PRINTA$;B$
  117. 1260 GETB$:IFB$=""THEN1260
  118. 1270 IFB$="[133]"THEN2410
  119. 1280 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  120. 1290 IFB$<>CHR$(I)THENJW=JW+1
  121. 1300 NEXTI:IFB$=CHR$(20)THENPRINTA$;"  ":GOTO1190
  122. 1310 IFJW=10THEN1260
  123. 1320 X2=JX-48
  124. 1330 A8=X1*10:A9=A8+X2:IFA9>23THEN1260
  125. 1340 PRINTA$;"";B$
  126. 1350 GETB$:IFB$=""THEN1350
  127. 1360 IFB$="[133]"THEN2410
  128. 1370 X1=X1*10:X=X1+X2:IFX>23THEN1260
  129. 1380 IFB$=CHR$(20)THENPRINTA$;"  ":B$="":GOTO1190
  130. 1390 IFB$=CHR$(13)THENA$="":RETURN
  131. 1400 B$="":GOTO1350
  132. 1410 POKE198,0:GOSUB1460:PRINTQ1$;WR$
  133. 1420 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  134. 1430 GETB$:IFB$=""THEN1430
  135. 1440 IFB$<>CHR$(13)THEN1430
  136. 1450 GOSUB1460:RETURN
  137. 1460 PRINTQ1$;"                                       "
  138. 1470 PRINTQ2$;"                                       "
  139. 1480 PRINTQ3$;"                                      ":RETURN
  140. 1490 GOSUB2340
  141. 1500 A$=""
  142. 1510 GOSUB1150:W=0
  143. 1520 W=W+1:IFS4(W)=XTHENA=W:GOTO1540
  144. 1530 GOTO1520
  145. 1540 W=0
  146. 1550 IFC1$(A)<>"NIL"THEN1590
  147. 1560 PRINTQ1$;"                                        "
  148. 1570 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4830
  149. 1580 XC=2:GOTO1490
  150. 1590 GOSUB3480
  151. 1600 U$="NOW CHOOSE A SECOND CARD":GOSUB1150
  152. 1610 IFS4(A)<>XTHEN1650
  153. 1620 PRINTQ1$;"                                        "
  154. 1630 PRINTQ1$;" PLEASE DO NOT PICK THE SAME CARD TWICE!":GOSUB4830
  155. 1640 GOTO1600
  156. 1650 W=0
  157. 1660 W=W+1:IFS4(W)=XTHENA1=W:GOTO1680
  158. 1670 GOTO1660
  159. 1680 W=0:IFC1$(A1)<>"NIL"THEN1720
  160. 1690 PRINTQ1$;"                                       "
  161. 1700 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4830
  162. 1710 GOTO1600
  163. 1720 REM
  164. 1730 GOSUB3620
  165. 1740 D$=WD$(A):E$=WD$(A1):D=L1(A):E=L1(A1):D1$=MID$(D$,D):E1$=MID$(E$,E)
  166. 1750 IFLEFT$(D1$,2)=LEFT$(E1$,2)THEN1800
  167. 1760 PRINTQ1$;"                                      "
  168. 1770 POKES+6,9:FORI=255TO0STEP-10
  169. 1780 POKES+4,17:POKES,20:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  170. 1790 WR$="       SORRY, THAT IS NOT A MATCH [146] ":GOSUB1410:GOTO2100
  171. 1800 REM
  172. 1810 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  173. 1820 POKES+4,17:POKES,200:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  174. 1830 WR$="     THAT'S RIGHT WE HAVE A MATCH! "
  175. 1840 FORQ=1TO10:POKE53280,Q:POKE53281,Q+1
  176. 1850 FORDY=1TO30:NEXTDY:NEXTQ:POKE53280,6:POKE53281,0
  177. 1860 GOSUB1410
  178. 1870 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2)
  179. 1880 PRINTQ2$;" WHICH WORD CAN YOU COMPLETE[160]WITH ";D1$;"[146]?   "
  180. 1890 GETB$:IFB$=""THEN1890
  181. 1900 IFB$="1"THENNM=1:GOSUB2000:GOTO2010
  182. 1910 IFB$="2"THENNM=2:GOSUB2000:GOTO2010
  183. 1920 IFB$="3"THENNM=3:GOSUB2000:GOTO2010
  184. 1930 IFB$="4"THENNM=4:GOSUB2000:GOTO2010
  185. 1940 IFB$="5"THENNM=5:GOSUB2000:GOTO2010
  186. 1950 IFB$="6"THENNM=6:GOSUB2000:GOTO2010
  187. 1960 IFB$="7"THENNM=7:GOSUB2000:GOTO2010
  188. 1970 IFB$="[133]"THEN2410
  189. 1980 GOTO1890
  190. 1990 GOTO2010
  191. 2000 D$=MID$(WD$(NM),L1(NM)):AN$=LEFT$(D$,2):RETURN
  192. 2010 IFEE$(NM)<>"NIL"THEN2050
  193. 2020 PRINTQ2$;"                                       "
  194. 2030 PRINTQ1$;"    SORRY ";B$;" HAS ALREADY BEEN PICKED.":GOSUB4830
  195. 2040 GOTO1870
  196. 2050 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2):IFD1$=AN$THEN2140
  197. 2060 POKES+6,9:POKES,40:POKES+1,255:FORI=1TO10:NEXTI:FORI=255TO0STEP-10
  198. 2070 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  199. 2080 PRINTQ2$;"                                      "
  200. 2090 PRINTQ1$;" I AM VERY SORRY, BUT YOU ARE WRONG.     ":GOSUB4830
  201. 2100 POKES1(A)+54272,1:POKES1(A)+54273,1
  202. 2110 POKES1(A),S2(A):POKES1(A)+1,S3(A)
  203. 2120 POKES1(A1)+54272,1:POKES1(A1)+54273,1
  204. 2130 POKES1(A1),S2(A1):POKES1(A1)+1,S3(A1):POKEV+21,0:GOTO1490
  205. 2140 PRINTQ1$;"                                        "
  206. 2150 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  207. 2160 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  208. 2170 FORI=1TO10:POKE53280,I:POKE53281,I+1:NEXTI:POKE53280,6:POKE53281,0
  209. 2180 WR$="          WOW!! WOW!! WOW!!":GOSUB1410
  210. 2190 IFMA=1THENT1=T1+1
  211. 2200 IFMA=2THENT2=T2+1
  212. 2210 IFT1+T2<>7THEN2230
  213. 2220 GOSUB3760:GOSUB4140:POKEV+21,0:GOTO4200
  214. 2230 REM
  215. 2240 PRINTQ1$;"                                        "
  216. 2250 PRINTQ1$;"    YOU MAY NOW HAVE ANOTHER TURN.      "
  217. 2260 FORDY=1TO1000:NEXTDY
  218. 2270 IFMA=1THENT1=T1-1
  219. 2280 IFMA=2THENT2=T2-1
  220. 2290 GOSUB3760:C1$(A)="NIL":C1$(A1)="NIL"
  221. 2300 IFMA=1THENT1=T1+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  222. 2310 IFMA=2THENT2=T2+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  223. 2320 GOSUB4100:POKEV+21,0
  224. 2330 GOTO1510
  225. 2340 IFXC=2THENXC=0:GOTO2370
  226. 2350 IFMA=2THENMA=1:GOTO2370
  227. 2360 IFMA=1THENMA=2:GOTO2390
  228. 2370 U$="WHICH CARD WOULD YOU LIKE?     "
  229. 2380 Z=26:RX=27:RETURN
  230. 2390 U$="WHICH CARD WOULD YOU LIKE?     "
  231. 2400 Z=26:RX=27:RETURN
  232. 2410 V=53248:POKEV+21,0:GOSUB2810:GOTO4610
  233. 2420 POKE53280,14:POKE53281,0:PRINT"[147]"
  234. 2430 A$="":PRINTCHR$(142)
  235. 2440 PRINT"[156]EE"
  236. 2450 PRINT"[153]OO"
  237. 2460 PRINT"";TAB(32);"[129]EE"
  238. 2470 PRINT"";TAB(35);"OO"
  239. 2480 PRINT"[158]EE"
  240. 2490 PRINT"[154]OO"
  241. 2500 PRINT"";TAB(30);"[158]EE"
  242. 2510 PRINT"";TAB(16);"[159]OO"
  243. 2530 FORI=1TO14
  244. 2540 PRINTA$;TAB(11);"[158][145][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160]"
  245. 2550 PRINTTAB(11);" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][209]"
  246. 2560 PRINTTAB(11);"[209][180]PHONCENTRATION[158][170] "
  247. 2570 PRINTTAB(11);" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][209]"
  248. 2580 PRINTTAB(11);"[209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] "
  249. 2590 PRINTTAB(11)" A PHONIC DRILL &"
  250. 2600 PRINTTAB(11)"   PRACTICE GAME  "
  251. 2610 PRINT"      PART 4: DOUBLE VOWEL BLENDS."
  252. 2620 PRINTTAB(09)"[159]BY MARIO VELA-MARTINEZ"
  253. 2630 PRINTTAB(09)"[159]          AND"
  254. 2640 PRINTTAB(09)"[159] CARLOS VELA-MARTINEZ"
  255. 2650 PRINTTAB(08)"[159]ASSISTANCE BY RAY PRACHUN"
  256. 2660 PRINTA$;TAB(11);"[145] [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209]"
  257. 2670 PRINTTAB(11);"[209][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
  258. 2680 PRINTTAB(11);" [180]PHONCENTRATION[158][170][209]"
  259. 2690 PRINTTAB(11);"[209][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  260. 2700 PRINTTAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] [209]"
  261. 2710 POKES+24,0
  262. 2720 POKES+4,65:POKES+1,W1(I):POKES+0,W2(I):FORKK=1TOW3(I):NEXTKK:POKES+4,64
  263. 2730 NEXTI:FORKK=1TO1500:NEXT:POKES+1,0:POKES,0
  264. 2740 POKES+24,15
  265. 2750 POKEV+21,12:POKEV+4,86:POKEV+5,100:POKEV+6,255:POKEV+7,100
  266. 2760 GOSUB710
  267. 2770 POKEV+21,0:PRINT"[147]    DO YOU WISH INSTRUCTIONS (Y/N)? "
  268. 2780 GETZ$:IFZ$=""THEN2780
  269. 2790 IFZ$="N"THENRETURN
  270. 2800 IFZ$<>"Y"THEN2780
  271. 2810 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- ":POKE53280,6:POKE53281,12:PRINTCHR$(14)
  272. 2820 PRINT"  [212]HE OBJECT OF THE GAME IS TO TRY TO"
  273. 2830 PRINT" COMPLETE THE WORD LIST, SHOWN ON THE"
  274. 2840 PRINT" RIGHT-HAND SIDE OF THE SCREEN."
  275. 2850 PRINT"  [207]N A TURN, A PLAYER IS ALLOWED TO "
  276. 2860 PRINT" CHOOSE TWO CARDS. [212]HE AIM IS TO PICK "
  277. 2870 PRINT" TWO VOWEL COMBINATIONS THAT MATCH.       [198]OR EXAMPLE..."
  278. 2880 PRINT"             [144][197][197] AND [144][197][197]"
  279. 2890 PRINT"  [201]F THE TWO CARDS MATCH, THE PLAYER"
  280. 2900 PRINT" IS ALLOWED TO TRY TO DECIDE WHICH"
  281. 2910 PRINT" WORD WILL BE PROPERLY COMPLETED WITH"
  282. 2920 PRINT" THAT VOWEL COMBINATION.[160]                 [198]OR EXAMPLE..."
  283. 2930 PRINT"   [160]     [144][208]--[204] + [144][207][207] = [144][208][207][207][204]"
  284. 2940 PRINT"[144]       [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]";
  285. 2950 GETB$:IFB$<>CHR$(13)THEN2950
  286. 2960 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- "
  287. 2970 PRINT"  [215]HEN THE ANSWER IS CORRECT, THE"
  288. 2980 PRINT" PLAYER IS AWARDED 1 POINT AND IS THEN"
  289. 2990 PRINT" GIVEN ANOTHER TURN. [207]NCE ALL THE CARDS"
  290. 3000 PRINT" HAVE BEEN DRAWN, THE PLAYER WITH THE"
  291. 3010 PRINT" HIGHEST SCORE WINS!!"
  292. 3020 PRINT"  [211]O THAT YOU DON'T HAVE TO DO ALL THE"
  293. 3030 PRINT" WORK, TWO FRIENDLY [194]UGABOOS HAVE BEEN"
  294. 3040 PRINT" HIRED TO HELP YOU. [193]S YOU PICK A CARD,"
  295. 3050 PRINT" A [194]UGABOO WILL POP OUT AND FLIP THAT"
  296. 3060 PRINT" CARD OVER SO THAT YOU ARE ABLE TO SEE"
  297. 3070 PRINT" IT!"
  298. 3080 PRINT"  [201]F YOU NEED SEE THE INSTRUCTIONS "
  299. 3090 PRINT" AGAIN, JUST HIT THE '[198]1' KEY. [194]UT"
  300. 3100 PRINT" REMEMBER THAT THIS WILL END THE GAME"
  301. 3110 PRINT" IN PROGRESS."
  302. 3120 PRINT"[144]          [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][194][197][199][201][206]";
  303. 3130 GETB$:IFB$<>CHR$(13)THEN3130
  304. 3140 PRINT"[147]":PRINTCHR$(142):RETURN
  305. 3150 V=53248:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,15
  306. 3160 POKEV+28,255:POKEV+37,5:POKEV+38,0
  307. 3170 REM
  308. 3180 FORSP=832TO894:READA:POKESP,A:NEXT:GOSUB380
  309. 3190 FORSP=896TO958:READA:POKESP,A:NEXT:GOSUB380
  310. 3200 FORSP=960TO1022:READA:POKESP,A:NEXT:GOSUB380
  311. 3210 POKEV+21,0:POKEV+39,1:POKEV+40,1:POKEV+41,1:POKEV+42,1
  312. 3220 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,11:POKES+2,0
  313. 3230 POKES+3,4
  314. 3240 RETURN
  315. 3250 REM
  316. 3260 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  317. 3270 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,80,0,0
  318. 3280 DATA85,85,80,85,85,80,21,85,64,0,0,0,0,0,0
  319. 3290 REM
  320. 3300 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  321. 3310 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,0,0,5
  322. 3320 DATA5,85,85,5,85,85,1,85,84,0,0,0,0,0,0
  323. 3330 REM
  324. 3340 DATA17,0,17,21,0,21,16,0,1,16,128,129,18,162,161,18,162,161,18,251,225
  325. 3350 DATA18,251,225,22,251,229,21,149,149,5,85,84,7,213,244,5,127,84,5,85,84
  326. 3360 DATA1,85,80,0,85,64,0,0,0,1,81,80,5,85,84,5,85,84,1,81,80
  327. 3370 DATA8,97,0,0,100
  328. 3380 DATA8,97,0,0,100,8,97,0,0,50,8,97,0,0,50,8,97,0,0,100,8,97,0,0,50
  329. 3390 DATA8,97,0,0,50,10,143,0,0,100,8,97,0,0,100,8,97,0,0,200:REM    ***
  330. 3400 DATA8,97,10,143,100,8,97,10,143,50,8,97,10,143,50,8,97,10,143,100
  331. 3410 DATA 8,97,10,143,50,8,97,10,143,50,10,143,12,143,100,8,97,10,143,100
  332. 3420 DATA 8,97,10,143,200,10,143,12,143,100,10,143,12,143,50,10,143,12,143,50
  333. 3430 DATA 10,143,12,143,100,10,143,12,143,100,12,143,16,195,100
  334. 3440 DATA 8,97,4,48,100,8,97,4,48,400
  335. 3450 REM ***
  336. 3460 DATA 7,12,100,8,97,25,8,97,100,8,97,100,9,104,100,8,97,25,7,12,100
  337. 3470 DATA 5,152,120,7,119,40,7,119,5,8,97,70,7,12,100,6,71,25,5,152,100
  338. 3480 POKES+5,0:POKES+6,0:FORJ=0TO7:POKEV+J,0:NEXT
  339. 3490 Y=B1(A):X=B2(A):POKES+24,15
  340. 3500 FORO=4TOXSTEP4:POKEV+21,1:POKEV+0,O:POKEV+1,Y
  341. 3510 POKES+4,33:POKES+1,40:POKES,100:POKES+4,32
  342. 3520 POKEV+21,2:POKEV+2,O+1
  343. 3530 POKEV+3,Y:POKES+4,129:POKES+1,100:POKES,100:POKES+4,128:NEXT
  344. 3540 POKEV+21,4:POKEV+4,O-5:POKEV+5,Y-2:POKES+1,0:POKES,0
  345. 3550 POKES1(A)+54272,1:POKES1(A)+54273,1
  346. 3560 REM
  347. 3570 D$=WD$(A):D=L1(A):D1$=MID$(D$,D)
  348. 3580 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  349. 3590 D=ASC(D2$):D1=ASC(D3$)
  350. 3600 POKES1(A),D-64:POKES1(A)+1,D1-64
  351. 3610 RETURN
  352. 3620 Y=B1(A1):X=B2(A1)
  353. 3630 FORO=4TOXSTEP4:POKEV+21,5:POKEV+0,O:POKEV+1,Y
  354. 3640 POKES+4,33:POKES+1,60:POKES,100:POKES+4,32
  355. 3650 POKEV+21,6:POKEV+2,O+1
  356. 3660 POKEV+3,Y:POKES+4,129:POKES+1,150:POKES,100:POKES+4,128:NEXT
  357. 3670 POKEV+42,1:POKEV+21,12:POKE2043,15:POKEV+6,O-5:POKEV+7,Y-2:POKES+1,0
  358. 3680 POKES,0:POKES1(A1)+54272,1:POKES1(A1)+54273,1
  359. 3690 REM
  360. 3700 D$=WD$(A1):D=L1(A1):D1$=MID$(D$,D)
  361. 3710 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  362. 3720 D=ASC(D2$):D1=ASC(D3$)
  363. 3730 POKES1(A1),D-64:POKES1(A1)+1,D1-64
  364. 3740 RETURN
  365. 3750 STOP
  366. 3760 REM
  367. 3770 IFNM=1THENAV$="":GOTO3840
  368. 3780 IFNM=2THENAV$="":GOTO3840
  369. 3790 IFNM=3THENAV$="":GOTO3840
  370. 3800 IFNM=4THENAV$="":GOTO3840
  371. 3810 IFNM=5THENAV$="":GOTO3840
  372. 3820 IFNM=6THENAV$="":GOTO3840
  373. 3830 IFNM=7THENAV$=""
  374. 3840 PRINTAV$;"[158][153]";TAB(31);WD$(NM)
  375. 3850 EE$(NM)="NIL"
  376. 3860 POKES1(A)+54272,2:POKES1(A)+54273,2
  377. 3870 POKES1(A),160:POKES1(A)+1,160
  378. 3880 POKES1(A1)+54272,2:POKES1(A1)+54273,2
  379. 3890 POKES1(A1),160:POKES1(A1)+1,160:RETURN
  380. 3900 PRINT"[147]":PRINTCHR$(142):POKE53280,6:POKE53281,12
  381. 3910 CC=CC+1:IFCC=3THENCC=0:RETURN
  382. 3920 PRINT"[147]    PLAYER # ";CC
  383. 3930 PRINT"   NAME: ";
  384. 3940 REM
  385. 3950 IU=9
  386. 3960 ZZ$(CC)="":POKE204,1
  387. 3970 GETZA$:IFZA$=""THEN3970
  388. 3980 IFASC(ZA$)=13THENPRINT" ":POKE204,1:SN$=ZZ$:GOTO4060
  389. 3990 IFASC(ZA$)=20THENGOTO4040
  390. 4000 IFIU+1=>18THEN3970
  391. 4010 IFASC(ZA$)<65ORASC(ZA$)>90THEN3970
  392. 4020 IU=IU+1:ZZ$(CC)=ZZ$(CC)+ZA$
  393. 4030 PRINT;TAB(IU);ZA$;:GOTO3970
  394. 4040 IFIU=9THENGOTO3970
  395. 4050 ZZ$(CC)=LEFT$(ZZ$(CC),LEN(ZZ$(CC))-1):IU=IU-1:GOTO4030
  396. 4060 IFZZ$(CC)=""THEN3920
  397. 4070 GOTO3910
  398. 4080 :
  399. 4090 :
  400. 4100 EZ$=""
  401. 4110 PRINTEZ$;"[145][154][175][175][175][175][175][175][175][175][175][175][175][175]"
  402. 4120 PRINT"            "
  403. 4130 PRINT"            "
  404. 4140 FORI=1TOCC:PRINTEZ$;TAB(I+26);"";ZZ$(1);:NEXT:PRINT":";T1
  405. 4150 EZ$=""
  406. 4160 FORI=1TOYY:PRINTEZ$;TAB(I+26);ZZ$(2);:NEXT:PRINT":";T2
  407. 4170 PRINT"[154][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  408. 4180 IFT1+T2=7THEN4200
  409. 4190 RETURN
  410. 4200 PRINTA$;"                                        "
  411. 4210 POKEV+21,0:FORI=1TO1000:NEXT
  412. 4220 A1$=""
  413. 4230 A$="[157][157][157][158][213]   [146][201][157][157][157][157][157][202]   [146][203][157][157][157][157][223] [146][169][157][157] [146][157][157][185] [146][185]"
  414. 4240 AA$="[157][157][157][158]     [157][157][157][157][157]     [157][157][157][157]   [157][157] [157][157]    "
  415. 4250 PRINT"[147]":IFT1>T2THEN PRINT"      ";ZZ$(1)
  416. 4260 IFT2>T1THEN PRINT"      ";ZZ$(2)
  417. 4270 PRINT"      IS THE WINNER!!"
  418. 4280 GOSUB4720
  419. 4290 PRINT"[145][145][145][145][145][145]":PRINTA1$;A$
  420. 4300 PRINT"[155]       [146]"
  421. 4310 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  422. 4320 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  423. 4330 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  424. 4340 FORT=VTOV+5:POKET,0:NEXT:POKES+24,15
  425. 4350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  426. 4360 POKES+12,9:POKES+13,11:POKES+11,129:POKES+7,100:POKES+8,40:POKES+11,128
  427. 4370 POKEV+21,1:POKEV+1,206:POKEV+3,206:A=32:H=206
  428. 4380 FORTH=10TO32STEP4:POKEV+21,1:POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  429. 4390 POKEV+21,2:POKES+4,129:POKES,150:POKEV+0,TH:POKEV+2,TH
  430. 4400 POKES+1,200:POKES+4,128:NEXTTH
  431. 4410 FORTT=1TO5:FORTH=ATOA+24STEP4:POKEV+0,TH:POKEV+1,H:POKEV+21,1
  432. 4420 POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  433. 4430 POKEV+2,TH:POKEV+3,H
  434. 4440 POKEV+21,2:POKES+4,129:POKES,150:POKES+1,200:POKEV+4,128:NEXTTH:H=H-8
  435. 4450 A=A+24:NEXTTT:PRINT"";TAB(20);AA$
  436. 4460 POKEV+21,4:POKEV+4,166:POKEV+5,172:PRINT"";TAB(20);A$;""
  437. 4470 POKE1601,100:POKE1605,100:POKE1601+54272,1:POKE1605+54272,1
  438. 4480 POKES+2,0:POKES+3,5:POKES+5,6:POKES+6,10
  439. 4490 POKES+9,1:POKES+10,15:POKES+12,6:POKES+13,10:POKES+24,15
  440. 4500 FORI=1TO27:POKES+4,65:POKES+11,65:POKES,I2(I):POKES+7,I4(I)
  441. 4510 POKES+1,I1(I):POKES+8,I3(I):POKES+11,64:POKES+4,64
  442. 4520 FORK=1TOI5(I):NEXTK:NEXTI
  443. 4530 FORH=1TO500:NEXT:POKES,0:POKES+1,0:POKES+7,0:POKES+8,0
  444. 4540 PRINT"[155]    DO YOU WISH TO PLAY AGAIN?[160](Y/N)   ";
  445. 4550 REM
  446. 4560 GETB$:IFB$=""THEN4560
  447. 4570 IFLEFT$(B$,1)="Y"THEN4610
  448. 4580 IFLEFT$(B$,1)<>"N"THEN4560
  449. 4590 PRINT"[147][146]BYE!":POKEV+4,24:POKEV+5,59:POKES+4,21
  450. 4600 POKES,20:POKES+1,100:POKES+4,20:END
  451. 4610 JX=0:JW=0:A9=0:A8=0:X1=0:X2=0:X=0:A=0:A1=0:W=0:T1=0:T2=0
  452. 4620 FORI=1TO7:EE$(I)="":NEXT
  453. 4630 POKEV+21,0:PRINT"[147]      SAME PLAYERS AGAIN  (Y/N) ?"
  454. 4640 GETB$:IFB$=""THEN4640
  455. 4650 IFLEFT$(B$,1)="Y"THEN4700
  456. 4660 IFLEFT$(B$,1)<>"N"THEN4640
  457. 4670 PRINT"[147]"
  458. 4680 FORI=1TO15:Y1$(I)="":Y2$(I)="":NEXTI:FORI=1TO14:SP(I)=0:NEXT
  459. 4690 FORI=1TO7:EE$(I)="":NEXT:GOSUB320:PRINT"[147]":GOSUB710:GOTO450
  460. 4700 PRINT"[147]":FORI=1TO14:SP(I)=0:NEXT:GOSUB320:GOSUB710
  461. 4710 GOTO460
  462. 4720 POKE53280,0:PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  463. 4730 PRINT"   [206][209] [156][209] [158][209][209] [209][209][129] [209][209][155][209][209][209][209][209] [209][158] [209][155][209][209] [209][209][209][153][209][209] [209][205]"
  464. 4740 PRINT"  [206][209][209][209][159][209][158][209][209]   [209][154][209][209][155][209][158][209][209]  [159][209][150][209][209][156][209] [209][209][158][209]  [209] [209][209]  [205]"
  465. 4750 PRINT" [206] [209][159][209] [209][209][209]  [158][209][209][209] [209][153][209][209]  [150][209][209][156][209][209][209][155][209][209][209][158][209]  [209][151][209][158][209] [159][209] [205]"
  466. 4760 PRINT"[206][209][209][159][209][209][209][158][209]  [156][209] [129][209][209][153] [209][209][158][209] [209]  [150][209][209][159][209][209][209] [209][153][209]  [209][209][209][209][129][209]  [205]"
  467. 4770 PRINT"                                       "
  468. 4780 PRINT"                                       "
  469. 4790 PRINT"                                       "
  470. 4800 PRINT"                                       "
  471. 4810 REM  PRINT"[154]                                       "
  472. 4820 RETURN
  473. 4830 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  474. 4840 GETZ$:IFZ$=""THEN4840
  475. 4850 IFZ$<>CHR$(13)THEN4840
  476. 4860 GOSUB1460:RETURN
  477.